home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Tools - Objects / MacApp / MacApp 2.0 CD Release / MacApp 2.0 (Many Libraries) / Tools / CleanupDeRezzedViews < prev    next >
Encoding:
Text File  |  1990-03-27  |  2.3 KB  |  102 lines  |  [TEXT/MPS ]
  1. ###########################################################
  2. # Copyright © 1984-1990 by Apple Computer Inc.  All rights reserved.
  3. # Clean up de-rezzed views
  4. #    originally authored by Curtis Faith, used by permission.
  5. ###########################################################
  6.  
  7.  
  8. set exit 0
  9. IF {1} == ""     
  10.     target `GetFileName -b "Get" -m "View File to Cleanup"`
  11. else    
  12.     target "{1}"
  13. end
  14. if {status} == 0
  15.     find •
  16.     replace -c ∞ /[∂t]+/ ''
  17. else
  18.     set exit 1
  19.     exit
  20. end
  21. find •
  22. replace -c ∞ /∂/∂*≈∂*∂// ""
  23. find •
  24. replace -c ∞ /enabled,/ "enabled,ß∂n∂t"
  25. find •
  26. replace -c ∞ /disabled,/ "disabled,ß∂n∂t"
  27. find •
  28. replace -c ∞ /ithDocument,/ "ithDocument,ß∂n∂t∂t"
  29. find •
  30. replace -c ∞ /ilited,/ "ilited, ß∂n∂t∂t"
  31. find •
  32. replace -c ∞ /Click,/ "Click,ß∂n∂t∂t"
  33. find •
  34. replace -c ∞ /cTyping,/ "cTyping,ß∂n∂t∂t"
  35. find •
  36. replace -c ∞ /ertConstrain,/ "ertConstrain,ß∂n∂t∂t"
  37. find •
  38. replace -c ∞ /dornCols,/ "dornCols,ß∂n∂t∂t"
  39. find •
  40. replace -c ∞ /([¬ß]«1»)®1[∂n]«1»/ '®1'
  41. find •
  42. replace -c ∞ /([¬ß]«1»)®1[∂n]«1»/ '®1'
  43. find •
  44. replace -c ∞ /plain,0,∂{0x0,0x0,0x0∂},∂"∂"/ "systemFont"
  45. find •
  46. replace -c ∞ /plain,9,∂{0x0,0x0,0x0∂},∂"A∂"/ "applFont9"
  47. find •
  48. replace -c ∞ /plain,12,∂{0x0,0x0,0x0∂},∂"A∂"/ "applFont12"
  49. find •
  50. replace -c ∞ /plain,0,∂{0x0,0x0,0x0∂},∂"A∂"/ "applFont12"
  51. find •
  52. replace -c ∞ /∂{0x0,0x0,0x0∂}/ "black"
  53. find •
  54. replace -c ∞ /∂{0, 0, 0, 0∂}/ "noInset"
  55. find •
  56. replace -c ∞ /0b11110000000000000000000100000000/ "arrowsAndBackspace"
  57. find •
  58. replace -c ∞ /0b10000000/ "adnShadow"
  59. find •
  60. replace -c ∞ /0b1000000/ "adnRRect"
  61. find •
  62. replace -c ∞ /0b00000001/ "adnLineTop"
  63. find •
  64. replace -c ∞ /0b100000/ "adnOval"
  65. find •
  66. replace -c ∞ /0b10000/ "adnPatFill"
  67. find •
  68. replace -c ∞ /0b1111/ "adnFrame"
  69. find •
  70. replace -c ∞ /0b1000/ "adnLineRight"
  71. find •
  72. replace -c ∞ /0b100/ "adnLineBottom"
  73. find •
  74. replace -c ∞ /0b10/ "adnLineLeft"
  75. find •
  76. replace -c ∞ /0b0/ "adnNone"
  77. find • 
  78. replace -c ∞ /adnNone,∂{1, 1∂}/ "noAdornment"
  79. find •
  80. replace -c ∞ /∂{∂{/ "∂{∂{∂n∂n∂t"
  81. find •
  82. replace -c ∞ /∂},∂'/ "∂}, ∂n∂n∂t∂'"
  83. find •
  84. replace -c ∞ /∂}∂};/ "∂n∂t∂}∂n∂};"
  85. find •
  86. replace -c ∞ /,([¬ ])®1/ ", ®1"
  87. find •
  88. replace -c ∞ /∂}, root/ "∂}, ∂n∂n∂troot"
  89. find •
  90. replace -c ∞ /, arrowsAndBackspace/ ",∂n∂t∂tarrowsAndBackspace"
  91. find •
  92. replace -c ∞ /∂};resource/ "∂};∂n∂nresource"
  93. find •
  94. replace -c ∞ /ß/ ""
  95. set exit 1
  96. IF "{1}" == "-s"
  97.     save "{target}"
  98. end
  99. IF "{2}" == "-s"
  100.     save "{target}"
  101. end
  102.